home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / graficos / plydat14.arj / XANDER.PI < prev    next >
Encoding:
Text File  |  1992-04-05  |  4.0 KB  |  190 lines
  1. // Polyray sample data file written by Alexander Enzmann
  2.  
  3. //start_frame 0
  4. //end_frame 14
  5. //total_frames 15
  6.  
  7. viewpoint {
  8.    from      <0, 4, -25>
  9.    up        <0, 1, 0>
  10.    at        <0, 0, 0>
  11.    angle 30
  12.    hither 1
  13.    resolution 256, 128
  14.    aspect 2
  15.    }
  16.  
  17. background midnight_blue
  18. light white, <-10, 50, -20>
  19. light white, < 10, 50, -20>
  20.  
  21. define test_map
  22.    color_map(
  23.       [0,   0.1, red,     orange]
  24.       [0.1, 0.3, orange,  blue]
  25.       [0.3, 0.5, blue,    skyblue]
  26.       [0.5, 0.7, skyblue, orange]
  27.       [0.7, 0.9, orange,  magenta]
  28.       [0.9, 1.0, magenta, red],
  29.       <1, 1, 1>)
  30.  
  31. // Simple color map texture
  32. define noise_texture0
  33. texture {
  34.    special surface {
  35.       color test_map[noise(P)]
  36.       ambient 0.2
  37.       diffuse 0.8
  38.       specular white, 0.5
  39.       microfacet Reitz 10
  40.       }
  41.    scale <0.6, 0.6, 0.6>
  42.    }
  43.  
  44. define marble_turb 1
  45. define marble_fn  (sawtooth(P[0] + marble_turb * noise(P,4)) + 1) / 2
  46.  
  47. define white_marble_map
  48.    color_map(
  49.       [0.0, 0.8, <0.9, 0.9, 0.9>, <0.5, 0.5, 0.5>]
  50.       [0.8, 1.0, <0.5, 0.5, 0.5>, <0.2, 0.2, 0.2>])
  51.  
  52. define white_marble_texture
  53. texture {
  54.    special surface {
  55.       color white_marble_map[marble_fn]
  56.       ambient 0.2
  57.       diffuse 0.8
  58.       specular white, 0.5
  59.       microfacet Reitz 10
  60.       }
  61.    }
  62.  
  63. define shiny_red
  64. texture {
  65.    surface {
  66.       ambient red, 0.2
  67.       diffuse red, 0.8
  68.       specular white, 0.7
  69.       microfacet Phong 5
  70.       }
  71.    }
  72.  
  73. define shiny_magenta
  74. texture {
  75.    surface {
  76.       ambient magenta, 0.2
  77.       diffuse magenta, 0.8
  78.       specular white, 0.7
  79.       microfacet Phong 5
  80.       }
  81.    }
  82.  
  83. define matte_white
  84. texture {
  85.    surface {
  86.       ambient white, 0.2
  87.       diffuse white, 0.8
  88.       }
  89.    }
  90.  
  91. define matte_black
  92. texture {
  93.    surface {
  94.       ambient dark_slate_gray, 0.1
  95.       diffuse DarkSlateGray, 0.5
  96.       }
  97.    }
  98.  
  99. define matte_grey
  100. texture {
  101.    surface {
  102.       ambient grey, 0.2
  103.       diffuse grey, 0.7
  104.       }
  105.    }
  106.  
  107. define matte_yellow
  108. texture {
  109.    surface {
  110.       ambient yellow/2, 0.2
  111.       diffuse yellow/2, 0.8
  112.       }
  113.    }
  114.  
  115. define matte_orange
  116. texture {
  117.    surface {
  118.       ambient orange/2, 0.2
  119.       diffuse orange/2, 0.8
  120.       }
  121.    }
  122.  
  123. define box0 object { box <0, 0, 0>, <1, 5, 1> }
  124.  
  125. define char_a
  126. object {
  127.      box0 { shear  0, 0, 0.4, 0, 0, 0 }
  128.    + box0 { shear  0, 0,-0.4, 0, 0, 0 translate <4, 0, 0> }
  129.    + object { box <1.5, 1.5, 0>, <3.5, 2, 1> }
  130.    }
  131.  
  132. define char_e
  133. object {
  134.      box0
  135.    + object { box <0, 4.5, 0>, <4, 5, 1> }
  136.    + object { box <0, 2, 0>, <2.5, 2.5, 1> }
  137.    + object { box <0, 0, 0>, <4, 0.5, 1> }
  138.    }
  139.  
  140. define char_d
  141. object {
  142.      box0
  143.    + (  (  object { cylinder <1, 2.5, -0.05>, <1, 2.5, 1.05>, 2.5
  144.             u_steps 32 scale <1.2, 1, 1> }
  145.          * object { box <1, 0, 0>, <4.5, 5, 1> })
  146.        - object { cylinder <1.5, 2.5, -0.1>, <1.5, 2.5, 1.1>, 1 u_steps 32 } )
  147.    }
  148.  
  149. define char_n
  150. object {
  151.      box0
  152.    + box0 { shear  0, 0, -0.6, 0, 0, 0 translate <3, 0, 0> }
  153.    + box0 { translate <3, 0, 0> }
  154.    }
  155.  
  156. define char_r
  157. object {
  158.      box0
  159.    + (  (  object { cylinder <1.5, 3.5, -0.5>, <1.5, 3.5, 1.05>, 1.5
  160.             u_steps 32 }
  161.            * object { box <0, 2, 0>, <4, 5, 1> })
  162.          - object { cylinder <1.5, 3.5, -0.1>, <1.5, 3.5, 1.1>, 0.75
  163.             u_steps 32 })
  164.    + box0 { scale <1, 0.5, 1> shear  0, 0, -0.6, 0, 0, 0 translate <3, 0, 0> }
  165.    }
  166.  
  167. define char_x
  168. object {
  169.      box0 { shear  0, 0, 0.8, 0, 0, 0 }
  170.    + box0 { shear  0, 0,-0.8, 0, 0, 0 translate <4, 0, 0> }
  171.    }
  172.  
  173. object {
  174.      char_x
  175.    + char_a { translate <5, 0, 0> }
  176.    + char_n { translate <10, 0, 0> }
  177.    + char_d { translate <15, 0, 0> }
  178.    + char_e { translate <20, 0, 0> }
  179.    + char_r { translate <25, 0, 0> }
  180.    + object { disc <15, 0, 0>, <0, 1, 0>, 20
  181.           u_steps 32
  182.           v_steps 4
  183.           texture { hexagon noise_texture0, matte_yellow, matte_orange
  184.                 scale <5, 5, 5>} }
  185.    translate <-15, -5, 0>
  186.    scale <0.5, 0.5, 0.5>
  187.    rotate <0, 24 * frame, 0>
  188.    white_marble_texture
  189.    }
  190.